home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / GRAPHICS / SCGRAPH / DEMOMAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1996-11-08  |  3KB  |  111 lines
  1. unit DemoMain;
  2. {D-}
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Buttons, ExtCtrls, Menus;
  8.  
  9. type
  10.   TDemoForm = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     File1: TMenuItem;
  13.     Exit1: TMenuItem;
  14.     Demos1: TMenuItem;
  15.     Plotting1: TMenuItem;
  16.     Titles1: TMenuItem;
  17.     Axes1: TMenuItem;
  18.     Help1: TMenuItem;
  19.     PrintDialog1: TPrintDialog;
  20.     PrinterSetupDialog1: TPrinterSetupDialog;
  21.     Grids1: TMenuItem;
  22.     About1: TMenuItem;
  23.     procedure Exit1Click(Sender: TObject);
  24.     procedure Plotting1Click(Sender: TObject);
  25.     procedure Titles1Click(Sender: TObject);
  26.     procedure CloseWindow1Click(Sender: TObject);
  27.     procedure SetupPrinter1Click(Sender: TObject);
  28.     procedure Grids1Click(Sender: TObject);
  29.     procedure Axes1Click(Sender: TObject);
  30.     procedure About1Click(Sender: TObject);
  31.     procedure FormCreate(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   DemoForm: TDemoForm;
  40.   AboutText: TStringList;
  41.  
  42. implementation
  43.  
  44. {$R *.DFM}
  45.  
  46. uses Plotting, Titles, Grids, Axes, Help;
  47.  
  48. procedure TDemoForm.Exit1Click(Sender: TObject);
  49. begin
  50.   Close;
  51. end;
  52.  
  53. procedure TDemoForm.Plotting1Click(Sender: TObject);
  54. begin
  55.   CloseWindow1Click(Self);
  56.   TPlottingForm.Create(Self);
  57. end;
  58.  
  59. procedure TDemoForm.Titles1Click(Sender: TObject);
  60. begin
  61.   CloseWindow1Click(Self);
  62.   TTitlesForm.Create(Self);
  63. end;
  64.  
  65. procedure TDemoForm.Axes1Click(Sender: TObject);
  66. begin
  67.   CloseWindow1Click(Self);
  68.   TAxesForm.Create(Self);
  69. end;
  70.  
  71. procedure TDemoForm.Grids1Click(Sender: TObject);
  72. begin
  73.   CloseWindow1Click(Self);
  74.   TGridForm.Create(Self);
  75. end;
  76.  
  77. procedure TDemoForm.CloseWindow1Click(Sender: TObject);
  78. begin
  79.   while MDIChildCount > 0 do MDIChildren[0].Free;
  80. end;
  81.  
  82. procedure TDemoForm.SetupPrinter1Click(Sender: TObject);
  83. begin
  84.   PrinterSetupDialog1.Execute;
  85. end;
  86.  
  87. procedure TDemoForm.About1Click(Sender: TObject);
  88. begin
  89.   HelpForm.HelpMemo.Lines.Assign(AboutText);
  90.   HelpForm.ShowModal;
  91. end;
  92.  
  93. procedure TDemoForm.FormCreate(Sender: TObject);
  94. begin
  95.   AboutText := TStringList.Create;
  96.   with AboutText do begin
  97.    Add(' TScGraph is a Delphi32 component for scientific/');
  98.    Add(' technical graphing of x/y-data. Basis for this ');
  99.    Add(' component was txyGraph (version 1.0) which was ');
  100.    Add(' made available by:');
  101.    Add(' Grahame Grieve, Biochemistry, St Vincent┤s Hosp.,');
  102.    Add(' Victoria Parade, Fitzroy, 3065, Australia');
  103.    Add(' (g.grieve@pgrad.unimelb.edu.au)');
  104.    Add(' which is gratefully acknowledged. txyGraph v.2 is');
  105.    Add(' also available. However, TScGraph in its basics ');
  106.    Add(' still has many features of txyGraph (v. 1).');
  107.   end;
  108. end;
  109.  
  110. end.
  111.